home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ WMP 1.xpl < prev    next >
Text File  |  2001-11-29  |  2KB  |  53 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="1"
  3. "COUNT"="1"
  4. "UIPATH 1"="Program Options\Built in Windows Apps\Windows Media Player"
  5. "UIPATH 2"="Internet\Windows Media Player"
  6. "NAME"="Window Title"
  7. "LANGUAGE"="VBScript"
  8. "VERSION"="1.24"
  9. "TEXT 1"="Title"
  10. "DESCRIPTION 1"="You can change the title of the WMP window here."
  11. "DESCRIPTION 2"="To revert to the original title again, clear the field and press "Apply"."
  12. "DESCRIPTION 3"="NOTE: In WMP 6.x, the text you type will be used as the full window title. In WMP 7.x and 8.x, the title will be preceeded by "Windows Media Player provided by". So if you typed "Xteq Systems" in the field, under WMP 6.x the window title would be "Xteq Systems", but under 7.x and 8.x it would be "Windows Media Player provided by Xteq Systems"."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"=" "
  17.  
  18.  
  19. sPath="HKCU\Software\Policies\Microsoft\WindowsMediaPlayer\"
  20. sValue="TitleBar"
  21.  
  22. Sub Plugin_Initialize 
  23.  s=RegReadValue(sPath & sValue)
  24.  SetUIElement 1,s
  25. End Sub
  26.  
  27.  
  28. Sub Plugin_CheckData(ElementIndex)
  29. End Sub
  30.  
  31.  
  32.  
  33. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  34.  s=GetUIElement(1)
  35.  
  36.  if len(s)=0 then
  37.   'If values exists, delete it
  38.   s=RegReadValue(sPath & sValue)
  39.   if IsEmpty(s)=false then
  40.    Call RegDeleteValue(sPath & sValue)
  41.   end if
  42.  else
  43.   Call RegWriteValue(sPath & sValue,s,1)
  44.  end if
  45. End Sub
  46.  
  47.  
  48. Sub Plugin_Terminate 
  49. End Sub
  50.  
  51.  
  52.  
  53.